00100		TITLE	NICK
00110	
00119		ENTRY TYPER.
00128	TYPER.::	Z
00146		OUTSTR	[ASCIZ .FUNCTION ERROR.]
00164		EXIT
00190	
00200		ENTRY	IMMPLY
00300		EXTERN	OUTWC
00400		EXTERN	NCHNS
00500		EXTERN	SPEED
00600		T=0
00700		T1=1
00800		OPDEF	FIX [XWD 2000,0]
00900	IMMPLY:	0
01000		OUTSTR	[ASCIZ /
01100	TRYING TO PLAY!
01200	/]
01300		MOVEM	T,ST#
01400		MOVEM	T1,ST1#
01500		MOVE	T,[XWD 1,1]
01600		LOCK	T,
01700		JRST	[
01800		OUTSTR	[ASCIZ /CAN'T LOCK
01900	/]
02000		JRST	RET]
02100		MOVEI	T,RTB
02200		RTTRP	T,
02300		JRST	[
02400		OUTSTR	[ASCIZ /CAN'T RTTRP
02500	/]
02600		JRST	RET]
02700		MOVE	T,NCHNS
02800		TLNE	T,-1
02900		FIX	T,233000
03000		CAILE	T,2
03100		MOVEI	T,3
03200		DPB	T,[POINT 2,CONOWD,19]
03300		MOVE	T,SPEED
03400		TLNE	T,-1
03500		FIX	T,233000
03600		IDIVI	T,12
03700		DPB	T,[POINT 2,CONOWD,29]
03800		DPB	T1,[POINT 3,CONOWD,22]
03900		SETOM	DACFLG#
04000	CONOWD:	CONO	200,004000
04100		SKIPE	DACFLG
04200		JRST	.-1
04300		MOVE	T,[XWD 1,1]
04400		UNLOK.	T,
04500		OUTSTR	[ASCIZ /NO UNLOCK UUO
04600	/]
04700	RET:	MOVE	T,ST
04800		MOVE	T1,ST1
04900		JRA	16,(16)
05000	RTB:	XWD	1,INTADD
05100		XWD	[HALT]
05200		BLKO	200,OUTWC
05300		0
05400	INTADD:	SETZM	DACFLG
05500		CONO	200,0
05600		MOVEI	T,RTBOFF
05700		RTTRP	T,
05800		JFCL
05900		UJEN
06000	RTBOFF:	BLOCK	4
06100		END